home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / misc / taper / install_taper < prev    next >
Text File  |  1999-05-17  |  2KB  |  96 lines
  1. ;VER: Taper installer v1.0
  2. ;it sux but it werks
  3.  
  4. (complete 0)
  5.  
  6. (set #introduction
  7. (cat "\n\n\n\nThis installer lets you install Taper V1.0 "
  8.      "on you computer."
  9.      "You need about 60k hard drive space free.\n"
  10.      "If you dont have that then you are a utter monkey spank"
  11. ))
  12.  
  13. (set #which-dir
  14. (cat "Where shall I put the recording and playing commands ?"
  15. ))
  16.  
  17. (set #which-dir-help
  18. (cat "\nThis is where you tell the installer where to install the "
  19.      "actual recording and playing commands. The directory SYS:C"
  20.      " is default coz its a default path (you can use it as a command).\n\n"
  21.      @askdir-help
  22. ))
  23.  
  24. (set #copystuff
  25. (cat "Copying the programs..."
  26. ))
  27.  
  28. (set #copyhelp
  29. (cat "\n\n\n\n\n\n\nNow the files will be copied to the specified directory."
  30. ))     
  31.  
  32. (set #wherehelp
  33. (cat "Where shall I put the help files ?"
  34. ))
  35.  
  36. (set #wherehelphelp
  37. (cat "\nThis is where you tell the installer where to install the "
  38.      "help files for Taper. The recommended directory is HELP: "
  39.      "(which is in SYS:Locale/Help)"
  40. ))
  41.  
  42. (set #done
  43. (cat "\n\n\n\nAll Done !!!"
  44.      "\n\nL8r dood."
  45.      "\n\nBye !!!"
  46. ))
  47.  
  48. (message #introduction)
  49.  
  50. (set maintarget (askdir (prompt #which-dir)
  51.                         (help #which-dir-help)
  52.                         (default "SYS:C")
  53.                 )
  54. )
  55.  
  56. (copyfiles (prompt #copystuff)
  57.            (source "RudeRecordTape")
  58.            (dest maintarget)
  59.            (help #copyhelp)
  60.            (confirm "expert")
  61. )
  62. (complete 20)
  63. (copyfiles (prompt #copystuff)
  64.            (source "RudePlayTape")
  65.            (dest maintarget)
  66.            (help #copyhelp)
  67.            (confirm "expert")
  68. )
  69. (complete 40)
  70. (copyfiles (prompt #copystuff)
  71.            (source "RudePlayQuick")
  72.            (dest maintarget)
  73.            (help #copyhelp)
  74.            (confirm "expert")
  75. )
  76. (complete 60)
  77.  
  78. (set helptarget (askdir (prompt #wherehelp)
  79.                         (help #wherehelphelp)
  80.                         (default "SYS:LOCALE/HELP")
  81.                 )
  82. )
  83.  
  84. (copyfiles (prompt #copystuff)
  85.            (source "RudeTaper.help")
  86.            (dest helptarget)
  87.            (help #copyhelp)
  88.            (confirm "expert")
  89. )
  90. (complete 80)
  91.  
  92. (run "multiview readmeordieyoulamer")
  93. (complete 100)
  94.  
  95. (message #done)
  96.